library(learningtower)
library(tidyverse)
library(maps)
library(ggmap)
library(plotly)
student_data <- load_student("all")
data(school)
school_data <- school
data(countrycode)
country_data <- countrycode
wrldmap <- map_data("world")
mrgddata <- merge(wrldmap,country_data,by.x="region",by.y="country_name")
mrgddata <- mrgddata[order(mrgddata$group,mrgddata$order),]
country_data_year_wise <- school_data |>
group_by(country, year) |>
select(country, year)
country_data_year_wise <- unique.data.frame(country_data_year_wise)
merge_country_year <- merge(country_data_year_wise,country_data,by.x="country",by.y="country")
mrgddata <- merge(wrldmap,merge_country_year,by.x="region",by.y="country_name")
mrgddata <- mrgddata[order(mrgddata$group,mrgddata$order),]
p <- ggplot(mrgddata) +
aes(x=long,y=lat,group=group,frame = year) + geom_polygon() + aes(fill=region) +
theme_dark() +
labs(x="",y="",title="A view of participating countries")
fig <- ggplotly(p)
fig <- fig %>%
animation_opts(
1000, easing = "elastic", redraw = FALSE
)
fig <- fig %>%
animation_button(
x = 1, xanchor = "right", y = 0, yanchor = "bottom"
)
fig <- fig %>%
animation_slider(
currentvalue = list(prefix = "YEAR ", font = list(color="red"))
)